library(readr)
if (!require("haven")) install.packages("haven")
library(haven)
if (!require("data.table")) install.packages("data.table")
library(data.table)
if (!require("dplyr")) install.packages("dplyr")
library(dplyr)
if (!require("lubridate")) install.packages("lubridate")
library(lubridate)
if (!require("tidyverse")) install.packages("tidyverse")
library(tidyverse)
if (!require("readxl")) install.packages("readxl")
library(readxl)
if (!require("writexl")) install.packages("writexl")
library(writexl)
cronograma_r4 <- read_excel("Cronograma_Operativo_ENDI_Ronda4_final_v1.xlsx")
# Agregar la columna con la fecha actual
cronograma_r4$fecha_actual <- Sys.Date()
attach(cronograma_r4)
################################################################################
carpetas<-data.table(table(cronograma_r4$`PROCESO_ MPE`))
cronograma_r4$fecha_inicio<-as.Date(cronograma_r4$fecha_inicio)
cronograma_r4$fecha_fin<-as.Date(cronograma_r4$fecha_fin)
View(cronograma_r4)
rm(list = ls())
gc()
setwd("D:/INEC/Javier Obando Cadena Respaldo/Trabajos ENDI/Pedidos/Directora/Visualizador del Cronograma")
if (!require("readr")) install.packages("readr")
library(readr)
if (!require("haven")) install.packages("haven")
library(haven)
if (!require("data.table")) install.packages("data.table")
library(data.table)
if (!require("dplyr")) install.packages("dplyr")
library(dplyr)
if (!require("lubridate")) install.packages("lubridate")
library(lubridate)
if (!require("tidyverse")) install.packages("tidyverse")
library(tidyverse)
if (!require("readxl")) install.packages("readxl")
library(readxl)
if (!require("writexl")) install.packages("writexl")
library(writexl)
cronograma_r4 <- read_excel("Cronograma_Operativo_ENDI_Ronda4_final_v1.xlsx")
# Agregar la columna con la fecha actual
cronograma_r4$fecha_actual <- Sys.Date()
attach(cronograma_r4)
################################################################################
carpetas<-data.table(table(cronograma_r4$`PROCESO_ MPE`))
cronograma_r4$fecha_inicio<-as.Date(cronograma_r4$fecha_inicio)
cronograma_r4$fecha_fin<-as.Date(cronograma_r4$fecha_fin)
cronograma_r4$duracion<-fecha_fin-fecha_actual
rm(list = ls())
gc()
setwd("D:/INEC/Javier Obando Cadena Respaldo/Trabajos ENDI/Pedidos/Directora/Visualizador del Cronograma")
if (!require("readr")) install.packages("readr")
library(readr)
if (!require("haven")) install.packages("haven")
library(haven)
if (!require("data.table")) install.packages("data.table")
library(data.table)
if (!require("dplyr")) install.packages("dplyr")
library(dplyr)
if (!require("lubridate")) install.packages("lubridate")
library(lubridate)
if (!require("tidyverse")) install.packages("tidyverse")
library(tidyverse)
if (!require("readxl")) install.packages("readxl")
library(readxl)
if (!require("writexl")) install.packages("writexl")
library(writexl)
cronograma_r4 <- read_excel("Cronograma_Operativo_ENDI_Ronda4_final_v1.xlsx")
# Agregar la columna con la fecha actual
cronograma_r4$fecha_actual <- Sys.Date()
attach(cronograma_r4)
################################################################################
carpetas<-data.table(table(cronograma_r4$`PROCESO_ MPE`))
cronograma_r4$fecha_inicio<-as.Date(cronograma_r4$fecha_inicio)
cronograma_r4$fecha_fin<-as.Date(cronograma_r4$fecha_fin)
cronograma_r4$duracion<-day(fecha_fin-fecha_actual)
rm(list = ls())
gc()
setwd("D:/INEC/Javier Obando Cadena Respaldo/Trabajos ENDI/Pedidos/Directora/Visualizador del Cronograma")
if (!require("readr")) install.packages("readr")
library(readr)
if (!require("haven")) install.packages("haven")
library(haven)
if (!require("data.table")) install.packages("data.table")
library(data.table)
if (!require("dplyr")) install.packages("dplyr")
library(dplyr)
if (!require("lubridate")) install.packages("lubridate")
library(lubridate)
if (!require("tidyverse")) install.packages("tidyverse")
library(tidyverse)
if (!require("readxl")) install.packages("readxl")
library(readxl)
if (!require("writexl")) install.packages("writexl")
library(writexl)
if (!require("bizdays")) install.packages("bizdays")
library(bizdays)
cronograma_r4$fecha_actual <- Sys.Date()
rm(list = ls())
gc()
setwd("D:/INEC/Javier Obando Cadena Respaldo/Trabajos ENDI/Pedidos/Directora/Visualizador del Cronograma")
if (!require("readr")) install.packages("readr")
library(readr)
if (!require("haven")) install.packages("haven")
library(haven)
if (!require("data.table")) install.packages("data.table")
library(data.table)
if (!require("dplyr")) install.packages("dplyr")
library(dplyr)
if (!require("lubridate")) install.packages("lubridate")
library(lubridate)
if (!require("tidyverse")) install.packages("tidyverse")
library(tidyverse)
if (!require("readxl")) install.packages("readxl")
library(readxl)
if (!require("writexl")) install.packages("writexl")
library(writexl)
if (!require("bizdays")) install.packages("bizdays")
library(bizdays)
cronograma_r4 <- read_excel("Cronograma_Operativo_ENDI_Ronda4_final_v1.xlsx")
# Agregar la columna con la fecha actual
cronograma_r4$fecha_actual <- Sys.Date()
attach(cronograma_r4)
################################################################################
carpetas<-data.table(table(cronograma_r4$`PROCESO_ MPE`))
cronograma_r4$fecha_inicio<-as.Date(cronograma_r4$fecha_inicio)
cronograma_r4$fecha_fin<-as.Date(cronograma_r4$fecha_fin)
cronograma_r4$duracion<-bizday (fecha_fin-fecha_actual)
cronograma_r4$duracion<-bizdays(fecha_fin-fecha_actual)
rm(list = ls())
gc()
setwd("D:/INEC/Javier Obando Cadena Respaldo/Trabajos ENDI/Pedidos/Directora/Visualizador del Cronograma")
if (!require("readr")) install.packages("readr")
library(readr)
if (!require("haven")) install.packages("haven")
library(haven)
if (!require("data.table")) install.packages("data.table")
library(data.table)
if (!require("dplyr")) install.packages("dplyr")
library(dplyr)
if (!require("lubridate")) install.packages("lubridate")
library(lubridate)
if (!require("tidyverse")) install.packages("tidyverse")
library(tidyverse)
if (!require("readxl")) install.packages("readxl")
library(readxl)
if (!require("writexl")) install.packages("writexl")
library(writexl)
if (!require("bizdays")) install.packages("bizdays")
library(bizdays)
cronograma_r4 <- read_excel("Cronograma_Operativo_ENDI_Ronda4_final_v1.xlsx")
# Agregar la columna con la fecha actual
cronograma_r4$fecha_actual <- Sys.Date()
attach(cronograma_r4)
################################################################################
carpetas<-data.table(table(cronograma_r4$`PROCESO_ MPE`))
cronograma_r4$fecha_inicio<-as.Date(cronograma_r4$fecha_inicio)
cronograma_r4$fecha_fin<-as.Date(cronograma_r4$fecha_fin)
cronograma_r4$duracion<-bizdays(fecha_fin-fecha_actual)
calendario<-
cronograma_r4$duracion<-bizdays(fecha_fin,fecha_actual)
calendario<-
cronograma_r4$duracion<-bizdays(fecha_inicio,fecha_fin)
cronograma_r4$duracion1<-days(fecha_fin-fecha_inicio)
cronograma_r4$duracion1<-day(fecha_fin-fecha_inicio)
cronograma_r4$duracion1<-days(fecha_fin-fecha_inicio)
rm(list = ls())
gc()
setwd("D:/INEC/Javier Obando Cadena Respaldo/Trabajos ENDI/Pedidos/Directora/Visualizador del Cronograma")
if (!require("readr")) install.packages("readr")
library(readr)
if (!require("haven")) install.packages("haven")
library(haven)
if (!require("data.table")) install.packages("data.table")
library(data.table)
if (!require("dplyr")) install.packages("dplyr")
library(dplyr)
if (!require("lubridate")) install.packages("lubridate")
library(lubridate)
if (!require("tidyverse")) install.packages("tidyverse")
library(tidyverse)
if (!require("readxl")) install.packages("readxl")
library(readxl)
if (!require("writexl")) install.packages("writexl")
library(writexl)
if (!require("bizdays")) install.packages("bizdays")
library(bizdays)
cronograma_r4 <- read_excel("Cronograma_Operativo_ENDI_Ronda4_final_v1.xlsx")
# Agregar la columna con la fecha actual
cronograma_r4$fecha_actual <- Sys.Date()
attach(cronograma_r4)
################################################################################
carpetas<-data.table(table(cronograma_r4$`PROCESO_ MPE`))
cronograma_r4$fecha_inicio<-as.Date(cronograma_r4$fecha_inicio)
cronograma_r4$fecha_fin<-as.Date(cronograma_r4$fecha_fin)
calendario<-create.calendar(name = "Lunes a Viernes",weekdays = c("saturday","sunday"))
cronograma_r4$duracion<-bizdays(fecha_inicio,fecha_fin,calendario)
rm(list = ls())
gc()
setwd("D:/INEC/Javier Obando Cadena Respaldo/Trabajos ENDI/Pedidos/Directora/Visualizador del Cronograma")
if (!require("readr")) install.packages("readr")
library(readr)
if (!require("haven")) install.packages("haven")
library(haven)
if (!require("data.table")) install.packages("data.table")
library(data.table)
if (!require("dplyr")) install.packages("dplyr")
library(dplyr)
if (!require("lubridate")) install.packages("lubridate")
library(lubridate)
if (!require("tidyverse")) install.packages("tidyverse")
library(tidyverse)
if (!require("readxl")) install.packages("readxl")
library(readxl)
if (!require("writexl")) install.packages("writexl")
library(writexl)
if (!require("bizdays")) install.packages("bizdays")
library(bizdays)
cronograma_r4 <- read_excel("Cronograma_Operativo_ENDI_Ronda4_final_v1.xlsx")
# Agregar la columna con la fecha actual
cronograma_r4$fecha_actual <- Sys.Date()
attach(cronograma_r4)
################################################################################
carpetas<-data.table(table(cronograma_r4$`PROCESO_ MPE`))
cronograma_r4$fecha_inicio<-as.Date(cronograma_r4$fecha_inicio)
cronograma_r4$fecha_fin<-as.Date(cronograma_r4$fecha_fin)
calendario<-create.calendar(name = "Lunes a Viernes",weekdays = c("saturday","sunday"))
cronograma_r4$duracion<-bizdays(fecha_inicio,fecha_fin,calendario)
cronograma_r4$fecha_fin1<-cronograma_r4$fecha_inicio+bizdays(fecha_inicio,fecha_fin,calendario)
cronograma_r4$duracion<-bizdays(fecha_inicio,fecha_fin)
cronograma_r4$fecha_fin1<-cronograma_r4$fecha_inicio+cronograma_r4$duracion
rm(list = ls())
gc()
setwd("D:/INEC/Javier Obando Cadena Respaldo/Trabajos ENDI/Pedidos/Directora/Visualizador del Cronograma")
if (!require("readr")) install.packages("readr")
library(readr)
if (!require("haven")) install.packages("haven")
library(haven)
if (!require("data.table")) install.packages("data.table")
library(data.table)
if (!require("dplyr")) install.packages("dplyr")
library(dplyr)
if (!require("lubridate")) install.packages("lubridate")
library(lubridate)
if (!require("tidyverse")) install.packages("tidyverse")
library(tidyverse)
if (!require("readxl")) install.packages("readxl")
library(readxl)
if (!require("writexl")) install.packages("writexl")
library(writexl)
if (!require("bizdays")) install.packages("bizdays")
library(bizdays)
cronograma_r4 <- read_excel("Cronograma_Operativo_ENDI_Ronda4_final_v1.xlsx")
# Agregar la columna con la fecha actual
cronograma_r4$fecha_actual <- Sys.Date()
attach(cronograma_r4)
################################################################################
carpetas<-data.table(table(cronograma_r4$`PROCESO_ MPE`))
cronograma_r4$fecha_inicio<-as.Date(cronograma_r4$fecha_inicio)
cronograma_r4$fecha_fin<-as.Date(cronograma_r4$fecha_fin)
cronograma_r4$fecha_fin1<-cronograma_r4$fecha_inicio+bizdays(fecha_inicio,fecha_fin)
rm(list = ls())
gc()
setwd("D:/INEC/Javier Obando Cadena Respaldo/Trabajos ENDI/Pedidos/Directora/Visualizador del Cronograma")
if (!require("readr")) install.packages("readr")
library(readr)
if (!require("haven")) install.packages("haven")
library(haven)
if (!require("data.table")) install.packages("data.table")
library(data.table)
if (!require("dplyr")) install.packages("dplyr")
library(dplyr)
if (!require("lubridate")) install.packages("lubridate")
library(lubridate)
if (!require("tidyverse")) install.packages("tidyverse")
library(tidyverse)
if (!require("readxl")) install.packages("readxl")
library(readxl)
if (!require("writexl")) install.packages("writexl")
library(writexl)
if (!require("bizdays")) install.packages("bizdays")
library(bizdays)
cronograma_r4 <- read_excel("Cronograma_Operativo_ENDI_Ronda4_final_v1.xlsx")
# Agregar la columna con la fecha actual
cronograma_r4$fecha_actual <- Sys.Date()
attach(cronograma_r4)
################################################################################
carpetas<-data.table(table(cronograma_r4$`PROCESO_ MPE`))
cronograma_r4$fecha_inicio<-as.Date(cronograma_r4$fecha_inicio)
cronograma_r4$fecha_fin<-as.Date(cronograma_r4$fecha_fin)
cronograma_r4$fecha_fin<-cronograma_r4$fecha_inicio+bizdays(fecha_inicio,fecha_fin)
cronograma_r4$fecha_fin1<-wday(cronograma_r4$fecha_fin)
table(cronograma_r4$fecha_fin1)
rm(list = ls())
gc()
setwd("D:/INEC/Javier Obando Cadena Respaldo/Trabajos ENDI/Pedidos/Directora/Visualizador del Cronograma")
if (!require("readr")) install.packages("readr")
library(readr)
if (!require("haven")) install.packages("haven")
library(haven)
if (!require("data.table")) install.packages("data.table")
library(data.table)
if (!require("dplyr")) install.packages("dplyr")
library(dplyr)
if (!require("lubridate")) install.packages("lubridate")
library(lubridate)
if (!require("tidyverse")) install.packages("tidyverse")
library(tidyverse)
if (!require("readxl")) install.packages("readxl")
library(readxl)
if (!require("writexl")) install.packages("writexl")
library(writexl)
if (!require("bizdays")) install.packages("bizdays")
library(bizdays)
cronograma_r4 <- read_excel("Cronograma_Operativo_ENDI_Ronda4_final_v1.xlsx")
# Agregar la columna con la fecha actual
cronograma_r4$fecha_actual <- Sys.Date()
attach(cronograma_r4)
################################################################################
carpetas<-data.table(table(cronograma_r4$`PROCESO_ MPE`))
cronograma_r4$fecha_inicio<-as.Date(cronograma_r4$fecha_inicio)
cronograma_r4$fecha_fin<-as.Date(cronograma_r4$fecha_fin)
cronograma_r4$fecha_fin<-cronograma_r4$fecha_inicio+bizdays(fecha_inicio,fecha_fin)
cronograma_r4$fecha_fin1<-ifelse(wday(cronograma_r4$fecha_fin)==1,cronograma_r4$fecha_fin+1,cronograma_r4$fecha_fin)
cronograma_r4$fecha_fin1<-ifelse(wday(cronograma_r4$fecha_fin)==1,cronograma_r4$fecha_fin+day(1),cronograma_r4$fecha_fin)
cronograma_r4$fecha_fin1<-ifelse(wday(cronograma_r4$fecha_fin)==1,as.Date(cronograma_r4$fecha_fin+1),cronograma_r4$fecha_fin)
View(cronograma_r4)
cronograma_r4$fecha_fin1<-ifelse(wday(cronograma_r4$fecha_fin)==1,as.Date(as.numeric(cronograma_r4$fecha_fin)+1),cronograma_r4$fecha_fin)
View(cronograma_r4)
cronograma_r4$fecha_fin1<-ifelse(wday(cronograma_r4$fecha_fin)==1,cronograma_r4$fecha_fin+days(1),cronograma_r4$fecha_fin)
View(cronograma_r4)
as.Date(cronograma_r4$fecha_fin1)
cronograma_r4$fecha_fin1<-as.Date(ifelse(wday(cronograma_r4$fecha_fin)==1,cronograma_r4$fecha_fin+days(1),cronograma_r4$fecha_fin))
cronograma_r4$fecha_fin2<-cronograma_r4$fecha_fin1-cronograma_r4$fecha_fin
rm(list = ls())
gc()
setwd("D:/INEC/Javier Obando Cadena Respaldo/Trabajos ENDI/Pedidos/Directora/Visualizador del Cronograma")
if (!require("readr")) install.packages("readr")
library(readr)
if (!require("haven")) install.packages("haven")
library(haven)
if (!require("data.table")) install.packages("data.table")
library(data.table)
if (!require("dplyr")) install.packages("dplyr")
library(dplyr)
if (!require("lubridate")) install.packages("lubridate")
library(lubridate)
if (!require("tidyverse")) install.packages("tidyverse")
library(tidyverse)
if (!require("readxl")) install.packages("readxl")
library(readxl)
if (!require("writexl")) install.packages("writexl")
library(writexl)
if (!require("bizdays")) install.packages("bizdays")
library(bizdays)
cronograma_r4 <- read_excel("Cronograma_Operativo_ENDI_Ronda4_final_v1.xlsx")
# Agregar la columna con la fecha actual
cronograma_r4$fecha_actual <- Sys.Date()
attach(cronograma_r4)
################################################################################
carpetas<-data.table(table(cronograma_r4$`PROCESO_ MPE`))
cronograma_r4$fecha_inicio<-as.Date(cronograma_r4$fecha_inicio)
cronograma_r4$fecha_fin<-as.Date(cronograma_r4$fecha_fin)
cronograma_r4$fecha_fin<-cronograma_r4$fecha_inicio+bizdays(fecha_inicio,fecha_fin)
cronograma_r4$fecha_fin1<-as.Date(ifelse(wday(cronograma_r4$fecha_fin)==1,cronograma_r4$fecha_fin+days(1),cronograma_r4$fecha_fin))
cronograma_r4$fecha_fin1<-as.Date(ifelse(wday(cronograma_r4$fecha_fin)==7,cronograma_r4$fecha_fin+days(2),cronograma_r4$fecha_fin1))
cronograma_r4$fecha_fin2<-cronograma_r4$fecha_fin1-cronograma_r4$fecha_fin
rm(list=ls())
gc()
if (!require("readr")) install.packages("readr")
library(readr)
if (!require("haven")) install.packages("haven")
library(haven)
if (!require("data.table")) install.packages("data.table")
library(data.table)
if (!require("dplyr")) install.packages("dplyr")
library(dplyr)
if (!require("lubridate")) install.packages("lubridate")
library(lubridate)
if (!require("tidyverse")) install.packages("tidyverse")
library(tidyverse)
if (!require("writexl")) install.packages("writexl")
library(writexl)
library(readxl)
#Factores de expansión
factores_expansion <- read_excel("D:/INEC/Javier Obando Cadena Respaldo/Trabajos ENIGHUR/Panel control Power BI/Panel de control ENIGHUR 2025/Panel de control bases SPSS/factores_expansion.xlsx")
factores_expansion$Identif_upm<-formatC(factores_expansion$id_upm,width =12, format = "d", flag = "0")
factores_expansion$Fexp<-factores_expansion$d3
factores_expansion$estrato<-formatC(factores_expansion$estrato,width =4, format = "d", flag = "0")
#función crear id de hogar----
id<-function(df){
df1<-df %>% select(contains("VIVIENDA"))
df1<-df1 %>% mutate(a=formatC(df1[[1]],width =2, format = "d", flag = "0"))
df[,3]<-df1$a
df2<-df %>% select(contains("CONGLO"))
df2<-df2 %>% mutate(b=formatC(df2[[1]],width =12, format = "fg", flag = "0"))
df[,2]<-df2$b
df_select<-df[,1:4] %>% mutate_all(as.character)
df_select<-apply(df_select,1,paste,collapse="")
df$Identif_hog<-df_select
df<-df %>% filter(df[,2]!=170150888888)
return(df)}
#ENIGHUR_F1_IDENTIFICACIONtificación----
setwd("D:/INEC/Javier Obando Cadena Respaldo/Trabajos ENIGHUR/Validación ENIGHUR 2025/Bases Actualizadas/Hogar") # Cambiar la dirección en dónde se encuentran las bases y los scripts
ENIGHUR_F1_IDENTIFICACION<-id(read_sav("Hogar-ENIGHUR_F1_IDENTIFICACION.sav"))
ENIGHUR_F1_IDENTIFICACION<-data.table(ENIGHUR_F1_IDENTIFICACION)
ENIGHUR_F1_IDENTIFICACION$Identif_upm<-ENIGHUR_F1_IDENTIFICACION$CONGLO
ENIGHUR_F1_IDENTIFICACION$CIUDAD<-formatC(ENIGHUR_F1_IDENTIFICACION$CIUDAD,width = 6,digits = "d",flag = 0)
ENIGHUR_F1_IDENTIFICACION$id<-as.numeric(ENIGHUR_F1_IDENTIFICACION$PROVINCIA)
ENIGHUR_F1_IDENTIFICACION$REGION<-ifelse(ENIGHUR_F1_IDENTIFICACION$id %in% c(4,10,17,5,18,6,2,3,1,11,23),"Sierra",0)#Sierra
ENIGHUR_F1_IDENTIFICACION$REGION<-ifelse(ENIGHUR_F1_IDENTIFICACION$id %in% c(8,9,12,13,24,7,12),"Costa",ENIGHUR_F1_IDENTIFICACION$REGION)#Costa
ENIGHUR_F1_IDENTIFICACION$REGION<-ifelse(ENIGHUR_F1_IDENTIFICACION$id %in% c(14,15,21,22,16,19),"Oriente",ENIGHUR_F1_IDENTIFICACION$REGION)#Amazonía
ENIGHUR_F1_IDENTIFICACION$REGION<-ifelse(ENIGHUR_F1_IDENTIFICACION$id %in% c(20),"Insular",ENIGHUR_F1_IDENTIFICACION$REGION)#Insular
ENIGHUR_F1_IDENTIFICACION<-left_join(ENIGHUR_F1_IDENTIFICACION,factores_expansion %>% select(Identif_upm,Fexp,estrato),by="Identif_upm")
#Filtrar por Periodo#
ENIGHUR_F1_IDENTIFICACION<-ENIGHUR_F1_IDENTIFICACION %>% filter(PERIODO<=13) %>% filter(is.na(RVO)!=T)
#####################
#Reemplazo de viviendas recuperadas por bomnberos#
ENIGHUR_F1_IDENTIFICACION$eliminar<-ifelse(ENIGHUR_F1_IDENTIFICACION$HOGAR>=5 & ENIGHUR_F1_IDENTIFICACION$RVO!=1,1,0)
ENIGHUR_F1_IDENTIFICACION<-ENIGHUR_F1_IDENTIFICACION %>% filter(eliminar==0) %>% select(-eliminar)
ENIGHUR_F1_IDENTIFICACION$recuperadas<-ifelse(ENIGHUR_F1_IDENTIFICACION$HOGAR>=5 & ENIGHUR_F1_IDENTIFICACION$RVO==1,1,0)
ENIGHUR_F1_IDENTIFICACION$id_viv<-substr(ENIGHUR_F1_IDENTIFICACION$Identif_hog,1,15)
recuperadas<-ENIGHUR_F1_IDENTIFICACION %>% filter(recuperadas==1) %>% select(Identif_hog)
recuperadas$id_viv<-substr(recuperadas$Identif_hog,1,15)
ENIGHUR_F1_IDENTIFICACION$borrar<-ifelse((ENIGHUR_F1_IDENTIFICACION$id_viv %in% c(recuperadas$id_viv)) & ENIGHUR_F1_IDENTIFICACION$RVO!=1,1,0)
ENIGHUR_F1_IDENTIFICACION<-ENIGHUR_F1_IDENTIFICACION %>% filter(borrar!=1) %>% select(-borrar)
#Eliminación de variables con data sensible#
ENIGHUR_F1_IDENTIFICACION<-ENIGHUR_F1_IDENTIFICACION %>% select(Identif_upm,Identif_hog,Fexp,estrato,ZONAL,VIVIENDA,HOGAR,NHOGARES,AREA,REGION,PROVINCIA,CIUDAD,NCIUDAD,PERIODO,SEMANA,id_viv,recuperadas,id,everything()) %>% select(-c(CONGLO,DIRECCION,LOCALIDAD,LOTE,BLOQUE,PATIO,PISO,CASA,DPTO,INFORMANTE,CELULAR,TELEFONO,FINIENC,FFINENC,HORINI,MININI,HORFIN,MINFIN,RZONAL,CODENC,CODSUP,CODCRI,CEDENC,CEDSUP,CEDCRI))
ENIGHUR_F1_IDENTIFICACION<-ENIGHUR_F1_IDENTIFICACION[,c(1:29)]
ENIGHUR_F1_IDENTIFICACION$NHOGARES<-ave(seq_len(nrow(ENIGHUR_F1_IDENTIFICACION)),by= ENIGHUR_F1_IDENTIFICACION$id_viv,FUN=seq_along) ##
ENIGHUR_F1_IDENTIFICACION$NHOGARES<-ave(ENIGHUR_F1_IDENTIFICACION$NHOGARES,by= ENIGHUR_F1_IDENTIFICACION$id_viv,FUN=max) ##
attr(ENIGHUR_F1_IDENTIFICACION$NHOGARES,"label")<-"Número de hogares en la vivienda"
attr(ENIGHUR_F1_IDENTIFICACION$Identif_hog,"label")<-"Identificador del hogar"
######################
lista_efectivas_incompletas<-ENIGHUR_F1_IDENTIFICACION %>% filter(EFECTIVA==1) %>% filter( RVO==1) %>% select(Identif_hog,RVO)
#####################
#función crear id de hogar----
id<-function(df){
df1<-df %>% select(contains("VIVIENDA"))
df1<-df1 %>% mutate(a=formatC(df1[[1]],width =2, format = "d", flag = "0"))
df[,3]<-df1$a
df2<-df %>% select(contains("CONGLO"))
df2<-df2 %>% mutate(b=formatC(df2[[1]],width =12, format = "fg", flag = "0"))
df[,2]<-df2$b
df_select<-df[,1:4] %>% mutate_all(as.character)
df_select<-apply(df_select,1,paste,collapse="")
df$Identif_hog<-df_select
setnames(df,names(df[,c(1:4)]),c("borrar1","borrar2","borrar3","borrar4"))
df<-left_join(df,ENIGHUR_F1_IDENTIFICACION %>% select(Identif_upm,Identif_hog,Fexp,estrato,ZONAL,VIVIENDA,HOGAR,AREA,REGION,PROVINCIA,CIUDAD,NCIUDAD,PERIODO,SEMANA,RVO),by="Identif_hog", relationship = "many-to-many")
df<-df %>% filter(RVO==1)
df3<-df[,1:4]
df3$id<-do.call(paste0,df3[,1:4])
df3<-df3 %>% mutate(b=ifelse(df3[[4]]>=5 & (id %in% c(recuperadas$Identif_hog)),1,df3[[4]]))
df[,4]<-df3$b
df$Identif_hog<-do.call(paste0,df[,1:4])
df<-df %>% select(-contains(c("borrar")))
df<-df %>% select(Identif_upm,Identif_hog,Fexp,estrato,ZONAL,VIVIENDA,HOGAR,AREA,REGION,PROVINCIA,CIUDAD,NCIUDAD,PERIODO,SEMANA,everything()) %>% select(-RVO) %>% mutate(HOGAR=substr(Identif_hog,16,16))
df<-data.table(df)
attr(df$Identif_hog,"label")<-"Identificador del hogar"
attr(df$Fexp,"label")<-"Factor de expansión"
attr(df$estrato,"label")<-"Estrato"
attr(df$HOGAR,"label")<-"Número de hogar en la vivienda"
attr(df$REGION,"label")<-"Región Natural"
return(df)}
####################
#Módulo de hogar#
####################
#CABECERA_F1_PERSONAS<-id(read_sav("Hogar-CABECERA_F1_PERSONAS.sav"))
ENIGHUR_F1_EQUIPAMIENTO<-id(read_sav("Hogar-ENIGHUR_F1_EQUIPAMIENTO.sav"))
ENIGHUR_F1_VIVIENDA<-id(read_sav("Hogar-ENIGHUR_F1_VIVIENDA.sav"))
id_per<-function(df){
df$P00<-formatC(df$P00,width = 2,digits = "d",flag = "0")
df$Identif_per<-paste0(df$Identif_hog,df$P00)
df<-df %>% select(Identif_hog,Identif_per,everything())
return(df)}
ENIGHUR_F1_PERSONAS<-id_per(id(read_sav("Hogar-ENIGHUR_F1_PERSONAS.sav")))
table(ENIGHUR_F1_PERSONAS$P19_1)
is.na(ENIGHUR_F1_PERSONAS$P19_1)
table(is.na(ENIGHUR_F1_PERSONAS$P19_1))
table(is.na(ENIGHUR_F1_PERSONAS$P19_2))
class(ENIGHUR_F1_PERSONAS$P19_2)
ENIGHUR_F1_PERSONAS$P19_1<-ifelse(is.na(ENIGHUR_F1_PERSONAS$P19_1)==T,1,ENIGHUR_F1_PERSONAS$P19_1)
class(ENIGHUR_F1_PERSONAS$P19_2)
table(is.na(ENIGHUR_F1_PERSONAS$P19_1))
debugSource("D:/INEC/Javier Obando Cadena Respaldo/Trabajos ENIGHUR/BASES RIBD/Carga RIBD final/Sintaxis para cargar bases de publicación.R", echo = TRUE)
source("D:/INEC/Javier Obando Cadena Respaldo/Trabajos ENIGHUR/BASES RIBD/Carga RIBD final/Sintaxis para cargar bases de publicación.R", echo = TRUE)
rm(list = ls())
load("D:/INEC/Javier Obando Cadena Respaldo/Trabajos ENIGHUR/Carpetas de publicación/Documentos metodológicos/Base de datos ENIGHUR/Bases Primarias/R/Bases_primarias.RData")
table(is.na(ENIGHUR_F1_PERSONAS$P19_1))
library(haven)
ENIGHUR_F1_PERSONAS <- read_sav("D:/INEC/Javier Obando Cadena Respaldo/Trabajos ENIGHUR/Carpetas de publicación/Documentos metodológicos/Base de datos ENIGHUR/Bases Primarias/SPSS/ENIGHUR_F1_PERSONAS.sav")
View(ENIGHUR_F1_PERSONAS)
setwd("D:/INEC/Javier Obando Cadena Respaldo/Trabajos ENIGHUR/Carpetas de publicación/Documentos metodológicos/Base de datos ENIGHUR/Bases Primarias/R")
dir()
save.image(Bases_primarias_1.RData)
save.image(Bases_primarias_1.RData)
save.image("Bases_primarias_.RData")
load("D:/INEC/Javier Obando Cadena Respaldo/Trabajos ENIGHUR/Carpetas de publicación/Documentos metodológicos/Base de datos ENIGHUR/Bases Primarias/R/Bases_primarias.RData")
rm(list = ls())
load("D:/INEC/Javier Obando Cadena Respaldo/Trabajos ENIGHUR/Carpetas de publicación/Documentos metodológicos/Base de datos ENIGHUR/Bases de Trabajo/R/Bases_trabajo.RData")
load("D:/INEC/Javier Obando Cadena Respaldo/Trabajos ENIGHUR/Carpetas de publicación/Documentos metodológicos/Base de datos ENIGHUR/Bases Primarias/R/Bases_primarias.RData")
setwd("D:/INEC/Javier Obando Cadena Respaldo/Trabajos ENIGHUR/Carpetas de publicación/Documentos metodológicos/DATOS ABIERTOS ENIGHUR_2026_05/Bases primarias_csv")
write.csv(ENIGHUR_F1_PERSONAS,"ENIGHUR_F1_PERSONAS_V1.csv")
setwd("D:/INEC/Javier Obando Cadena Respaldo/Trabajos ENIGHUR/Carpetas de publicación/Documentos metodológicos/DATOS ABIERTOS ENIGHUR_2026_05/Bases primarias_csv")
write.csv(ENIGHUR_F1_PERSONAS,"ENIGHUR_F1_PERSONAS_V1.csv")
write.csv(ENIGHUR_F1_PERSONAS,"ENIGHUR_F1_PERSONAS_V1.csv",row.names = F)
5+5
4+6
